home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 19 / Amiga Format CD19 (1997-10-02)(Future Publishing)(GB)(Track 1 of 5)[!][issue 1997-11].iso / -seriously_amiga- / shareware / misc / stackattack / install < prev    next >
Text File  |  1997-08-26  |  6KB  |  174 lines
  1.  
  2. ;***********
  3. ;*         *
  4. ;* STRINGS *
  5. ;*         *
  6. ;***********
  7.  
  8. (set #LANG_FOUND 0)
  9.  
  10. (if (= "deutsch" @language)
  11.        (
  12.     (set #MSG_WELCOME "Willkommen beim Installations-Skript für \"StackAttack\".\n\nWenn die Version Ihres Installers kleiner als 42 ist, könnte es unter Umständen Probleme bei der Installation geben!!")
  13.     (set #MSG_SELECTDOCPATH "In welches Verzeichnis soll die Dokumentation (\"StackAttack.guide\") kopiert werden?")
  14.  
  15.     (set #ASK_MINSTACK "Wie groß soll der minimale Stack (in Bytes) eines Prozesses (Programmes) sein? Sinnvoll sind Werte zwischen 4.200 und 6.000")
  16.     (set #ASK_ADDSTACK "Wieviel zusätzlichen Stack (in Bytes) sollen Prozesse (Programme) erhalten? Sinnvoll sind Werte zwischen 100 und 2.000.")
  17.  
  18.     (set #MSG_FA "Es wird nun ein Programm gestartet, mit dem Sie auswählen können, an welcher Stelle in der Startup-Sequence StackAttack gestartet werden soll. Sie sollten die vorgeschlagene Position nur ändern, wenn Sie wirklich wissen, was Sie tun!")
  19.     (set #MSG_FA2 "\n\nWenn Sie StackAttack bereits in der Startup-Sequence haben, können Sie mit CONTROL + LINKER MAUSTASTE die entsprechenden Zeilen herauslöschen.\n\nVor dem Speichern der geänderten Startup-Sequence wird ein Backup davon gemacht!")
  20.  
  21.     (set #MSG_COPY_SA "Kopiere StackAttack")
  22.     (set #MSG_COPY_DOC "Kopiere Dokumentation")
  23.  
  24.     (set #MSG_NOHELP "Keine Hilfe verfügbar. Sorry. Ich bin einfach zu faul :-( Lesen Sie das \"StackAttack.guide\"!")
  25.     (set #MSG_DONE "\nDie Installation von StackAttack ist abgeschlossen.")
  26.  
  27.     (set #LANG_FOUND 1)
  28.        )
  29. )
  30.  
  31. (if (= "italiano" @language)
  32.        (
  33.     (set #MSG_WELCOME "Benvenuto nello script di installazione per \"StackAttack\".\n\nSe la versione del tuo Installer è inferiore di 42, potrebbero verificarsi dei problemi durante l'installazione!!")
  34.     (set #MSG_SELECTDOCPATH "In che directory devo copiare la documentazione (\"StackAttack.guide\")?")
  35.     
  36.     (set #ASK_MINSTACK "Quale deve essere lo stack minimo (in bytes) dei processi (programmi)? Hanno senso valori tra 4.200 e 6.000")
  37.     (set #ASK_ADDSTACK "Quale deve essere lo stack aggiuntivo (in bytes) dei processi (programmi)? Hanno senso valori tra 100 e 2.000")
  38.     
  39.     (set #MSG_FA "Adesso sarà lanciato un programma che permette di scegliere in che posizione (quando) far lanciare StackAttack. Cambiare la posizione predefinita solo se si è consapevoli di quello che si fa!")
  40.     (set #MSG_FA2 "\n\nSe StackAttack si trova di già nella Startup-Sequence si possono cancellare le linee corrispondenti con CONTROL + TASO SINISTRO MOUSE.\n\nPrima del salvataggio della Startup-Sequence cambiata ne sarà fatto un backup!")
  41.  
  42.     (set #MSG_COPY_SA "Copio StackAttack")
  43.     (set #MSG_COPY_DOC "Copio documentazione")
  44.     
  45.     (set #MSG_NOHELP "Nessun aiuto disponibile. Sorry. Sono troppo pigro :-( Leggi il \"StackAttack.guide\"!")
  46.     (set #MSG_DONE "\nL'installazione di StackAttack è finita.")
  47.  
  48.         (set #LANG_FOUND 1)
  49.        )
  50. )
  51.  
  52. (if (= 0 #LANG_FOUND)
  53.        (
  54.     (set #MSG_WELCOME "Welcome to the installation script for \"StackAttack\".\n\nIf the version of your Installer is lower than 42 then there might be problems during installation!!")
  55.     (set #MSG_SELECTDOCPATH "Where do you want the documentation (\"StackAttack.guide\") to be copied?")
  56.  
  57.     (set #ASK_MINSTACK "What shall be the minimum stack (in bytes) of the processes (programs)? Reasonable values are between 4,200 and 6,000")
  58.     (set #ASK_ADDSTACK "What additional Stack (in bytes) shall the processes (programs) get? Reasonable values are between 100 and 2,000")
  59.  
  60.     (set #MSG_FA "Now a program will be started that allows you to select at which position to insert StackAttack in the Startup-Sequence. Change the predefined position only if you really know what you do!")
  61.     (set #MSG_FA2 "\n\nIf StackAttack is already in your Startup-Sequence you can delete the corresponding lines by using CONTROL + LEFT MOUSE BUTTON.\n\nBefore saving the changed Startup-Sequence a backup of it will be created!")
  62.  
  63.     (set #MSG_COPY_SA "Copying StackAttack")
  64.     (set #MSG_COPY_DOC "Copying documentation")
  65.     
  66.     (set #MSG_NOHELP "No help available. Sorry. I'm just too lazy :-( Have a look at \"StackAttack.guide\"!")
  67.     (set #MSG_DONE "\nThe installation of StackAttack is completed.")
  68.  
  69.        )
  70. )
  71.  
  72. ;==========================================================================
  73.  
  74.  
  75. ;********
  76. ;*      *
  77. ;* MAIN *
  78. ;*      *
  79. ;********
  80.  
  81. (welcome #MSG_WELCOME)
  82.  
  83. ;************************
  84. ;*                      *
  85. ;* ASK                  *
  86. ;*                      *
  87. ;************************
  88.  
  89. (set #minstack
  90.     (asknumber
  91.         (prompt #ASK_MINSTACK)
  92.         (help #MSG_NOHELP)
  93.         (default 5000)
  94.     )
  95. )
  96.  
  97. (set #addstack
  98.     (asknumber
  99.         (prompt #ASK_ADDSTACK)
  100.         (help #MSG_NOHELP)
  101.         (default 200)
  102.     )
  103. )
  104.  
  105. (if (exists "T:StackAttack_Start")
  106.     (delete "T:StackAttack_Start"
  107.         (help #MSG_NOHELP)
  108.         (safe)
  109.     )
  110. )
  111.     
  112. (textfile
  113.     (dest "T:StackAttack_Start")
  114.     (append ("; StackAttack: Programs started after StackAttack will have a minimum\n; Stack of %ld bytes that will be further increased by %ld bytes\n;\nC:StackAttack MIN=%ld ADD=%ld\n;" #minstack #addstack #minstack #addstack))
  115.     (help #MSG_NOHELP)
  116.     (safe)
  117. )
  118. ;**************
  119. ;*            *
  120. ;* FILEATTACK *
  121. ;*            *
  122. ;**************
  123.  
  124. (message #MSG_FA #MSG_FA2)
  125.  
  126. (run "FileAttack T:StackAttack_Start S:Startup-Sequence Backup S:Startup-Sequence.old DefaultAfter #?SetPatch#?")
  127.  
  128. ;******************
  129. ;*                *
  130. ;* SELECT DOC DIR *
  131. ;*                *
  132. ;******************
  133.  
  134. (set #docdest
  135.     (Expandpath
  136.         (askdir (prompt #MSG_SELECTDOCPATH)
  137.             (default "HELP:")
  138.             (help #MSG_NOHELP)
  139.         )
  140.     )
  141. )
  142.  
  143. ;**************
  144. ;*            *
  145. ;* COPY FILES *
  146. ;*            *
  147. ;**************
  148.  
  149. (copyfiles (prompt #MSG_COPY_SA)
  150.        (source "StackAttack")
  151.        (dest "SYS:C")
  152.        (confirm)
  153.        (help #MSG_NOHELP)
  154. )
  155.  
  156. (copyfiles (prompt #MSG_COPY_DOC)
  157.        (source "StackAttack.guide")
  158.        (dest #docdest)
  159.        (confirm)
  160.        (infos)
  161.        (help #MSG_NOHELP)
  162. )
  163.  
  164.  
  165. ;***********
  166. ;*         *
  167. ;* THE END *
  168. ;*         *
  169. ;***********
  170.  
  171. (exit #MSG_DONE #MSG_DONE2
  172.     (quiet)
  173. )
  174.